*figure 1
graph bar (percent) if M5S_18r==1, over(D6_post) bargap(3) blabel(bar, format(%9.3g)) ytitle(Proportion of M5S 2018 Identifiers) title(Parties Identified with in 2020 by M5S Identifiers) note(Source: Authors' Elaboration from ITANES (2018, 2020)) scheme(s1mono)


**summary statistics table 2
table (var) (LoyDesDis), statistic(frequency) statistic(percent) statistic(mean interest age female education LeftRight_M5S_20 LeftRight_M5S_20 Distance_To_M5S_shift NegEcon GovPerformance DiMaio M5S_18_noLR M5S_20_noLR) statistic(sd interest age female education LeftRight_M5S_20 Distance_To_M5S_shift NegEcon GovPerformance DiMaio M5S_18_noLR M5S_20_noLR) nformat(%9.1f percent) sformat("%s%%" percent) nformat(%9.2f mean) nformat(%9.2f sd)

oneway NegEcon LoyDesDis
oneway DiMaio LoyDesDis
oneway GovPerformance LoyDesDis
oneway Distance_To_M5S_shift LoyDesDis
oneway M5S_18_noLR LoyDesDis
oneway M5S_20_noLR LoyDesDis

oneway LeftRight_M5S_20 LoyDesDis
oneway interest LoyDesDis
oneway age LoyDesDis
oneway female LoyDesDis
oneway education LoyDesDis

*table 3
mlogit LoyDesDis interest age female education i.M5S_18_noLR#i.M5S_20_noLR NegEcon GovPerformance DiMaio i.Region, b(0) rrr vce(cluster Region)
est sto NonIdeology

mlogit LoyDesDis interest age female education c.LeftRight_M5S_20##c.LeftRight_M5S_20 Distance_To_M5S_shift NegEcon GovPerformance DiMaio i.Region, b(0) rrr vce(cluster Region) 
est sto Ideology

outreg2 [NonIdeology Ideology] e(ll, r2_p, N)

*table 4
margins, dyex()